Application.ModelessCommand("gd")
DlgModelessCmd.Command = "gd 0"
DlgModelessCmd.OnOk()
Application.StatusBarText = "Set Grids = 0"